home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls085.solintel.Z / tls085.solintel / lib / vtcl / tests / autolock4.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  1.8 KB  |  79 lines
  1. # CVS $Id: autolock4.tcl,v 1.1 1995/02/03 17:15:06 zibi Exp $
  2. # @(#) autolock4.tcl 11.3 95/01/31 
  3. #
  4.  
  5. proc autoLockCB {cbs} {
  6.     sleep 2
  7.     VtUnLock
  8. }
  9.  
  10. proc lockAndQuitCB {cbs} {
  11.     sleep 2
  12.     VtUnLock
  13.     VtClose
  14. }
  15.  
  16. #
  17. # Restores a list back to a know state
  18. #
  19. proc restoreList {dl} {
  20.      global DefaultList
  21.  
  22.      lappend rl { 0         "" ""         "String one"   "Apple"    1}
  23.      lappend rl { CONNECT_T  1 ""      "String two"     "Banna"    2}
  24.      lappend rl { CONNECT_T  2 ""      "String three" "Coconut"  3}
  25.      lappend rl { CONNECT_T  0 ""      "String four"     "Dogs"        4}
  26.      lappend rl { CONNECT_I  CONNECT_L 0  "String five"     "Elephant" 5}
  27.      lappend rl { CONNECT_L  0 ""      "String six"     "Frog"        6}
  28.  
  29.      set DefaultList $rl
  30.  
  31.      VtDrawnListDeleteItem $dl -all
  32.  
  33.      VtDrawnListAddItem $dl -recordList $rl -position 0
  34. }
  35.  
  36. set ap [VtOpen autolock]
  37.  
  38. set dlog [VtFormDialog $ap.form -cancel -cancelCallback lockAndQuitCB \
  39.                     -autoLock lockAndQuitCB]
  40.  
  41. set rc1 [VtRowColumn $dlog.rc1 -vertical]
  42.  
  43. set combo [VtComboBox $rc1.combo -callback autoLockCB \
  44.                           -valueChangedCallback autoLockCB \
  45.                           -autoLock autoLockCB -itemList {one two three}]
  46.  
  47. set dl [VtDrawnList $rc1.dl \
  48.         -iconList {./dir.px exec.px file.px} \
  49.     -CHARM_iconList {a b c} \
  50.     -formatList { \
  51.         {ICON 1} \
  52.         {ICON 1} \
  53.         {ICON 1} \
  54.         {STRING 25 5} \
  55.         {STRING 30 5} \
  56.         {DATA } } \
  57.     -CHARM_formatList { \
  58.         {ICON 1} \
  59.         {ICON 1} \
  60.         {ICON 1} \
  61.         {STRING 25 2} \
  62.         {STRING 30 2} \
  63.         {DATA } } \
  64.     -labelFormatList { {ICON 3 5} {STRING 25 5} {STRING 30 5}} \
  65.     -labelList {Icons "Label Above Columns" "Object"} \
  66.     -columns 30 \
  67.     -rows 6\
  68.     -selection MULTIPLE \
  69.     -callback autoLockCB -defaultCallback autoLockCB \
  70.     -autoLock autoLockCB]
  71.  
  72. restoreList $dl
  73.  
  74.  
  75. VtShow $dlog
  76.  
  77. VtMainLoop
  78.  
  79.